home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / speed read.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  80 lines
  1. 1 REM"STEVEN DARNOLD, P.O. BOX 201, ALEXANDRA  NEW ZEALAND[141]
  2. 10 [151]53280,11:[151]53281,11
  3. 90 [153]"RETURNLOADPRINT";:[141]100:[137]130
  4. 100 [153],"                       "
  5. 110 [153]," S P E E D     R E A D "
  6. 120 [153],"                       ":[142]
  7. 130 K$[178]" S P E E D     R E A D                BY                 MAX YODER"
  8. 140 K$[178]K$[170]"                             ADAPTED FOR THE 64                "
  9. 150 K$[178]K$[170]"BY                 STEVEN DARNOLD        "
  10. 160 [129]I[178]1[164]1000:[130]
  11. 170 [129]I[178]1[164][195](K$)[169]2:[153]"":[153],""[202](K$,I,23):[129]J[178]1[164]120:[130]:[130]
  12. 180 [153]"";:[141]100
  13. 190 K$[178]"STOP^":N[178]12
  14. 200 [134] P$(20):[134] V$(20)
  15. 210 [134] N$(20):[134] LW(40)
  16. 220 [153]"SYSTHIS PROGRAM TESTS YOUR READING SPEED   AND COMPREHENSION."
  17. 230 [153]"PRINTALTHOUGH SOME OF THE SENTENCES ARE A
  18. 240 PRINT"BIT STRANGE, THE OBJECT IS TO RECOGNISE
  19. 250 [153]"THEM IN THE SHORTEST POSSIBLE TIME.";
  20. 290 T[178]50
  21. 310 X$[178]" "
  22. 320 B$[178]"THE ":Y$[178]"THE "
  23. 330 [129] I[178] 1 [164] N
  24. 340 [135] N$(I)
  25. 350 N$(I)[178]N$(I)[170]X$:[130]
  26. 360 [129] I[178] 1 [164] N
  27. 370 [135] P$(I)
  28. 380 [130]
  29. 390 Z[178]0:[129]I [178] 1 [164] 14
  30. 400 R1[178][181](2[172][187](1))[170]1
  31. 410 [145] R1 [137]420,430
  32. 420 Q$[178]B$:[137]440
  33. 430 Q$[178]Y$
  34. 440 [135] V$(I)
  35. 450 V$(I)[178]V$(I)[170]X$[170]Q$
  36. 460 [130]:[153]"     PRESS SHIFTWAIT TO BEGIN":[146]653,1
  37. 470 R1[178][181](12[172][187](1))[170]1
  38. 480 R2[178][181](14[172][187](1))[170]1
  39. 490 R3[178][181](12[172][187](1))[170]1
  40. 500 R4[178][181](2[172][187](1))[170]1
  41. 510 [145] R4 [137]520,530
  42. 520 I$[178]B$:[137]540
  43. 530 I$[178]Y$
  44. 540 A$[178]I$[170]N$(R1)[170]V$(R2)[170]P$(R3)
  45. 550 L[178][195](A$):W1[178]L[173]5
  46. 560 [153]"LOADSYS":[129] I[178] 1 [164] 1000:[130]
  47. 570 [153]A$
  48. 580 TI$[178]"000000"
  49. 590 [139] TI[179]T [137]590
  50. 600 [153]"LOAD"
  51. 610 [153]"PRINTWHAT DID THAT SENTENCE SAY?"
  52. 620 [133]"CLOSECLOSECLOSECMDCMDCMD"; D$
  53. 630 [153]"LOADSYSYOU SAID:"
  54. 640 [153]D$""
  55. 650 [139] A$[178]D$ [167] COMP[178]100:[137]750
  56. 660 [129] I[178]1 [164] L[170]1:M$[178][202](A$,I,1):N$[178][202](D$,I,1):[139] M$[178]N$ [167] LC[178] LC[170]1
  57. 670 [139] M$[179][177]N$ [167] LW[178]LW[170]1:LW(I)[178]I
  58. 680 [130] I
  59. 690 [153]"THE STATEMENT WAS:"
  60. 700 [153]A$
  61. 710 [129] I[178] 1 [164] L[170]1
  62. 720 [139] LW(I)[178]I [167] [153][163]I[171]1);K$"ON"
  63. 730 [130] I
  64. 740 COMP[178][181](LC[172]100[173](L[170]1)):[137]760
  65. 750 SC[178]SC[170]1:[139] [181](SC)[178].25[172][181](SC[172]4)[167] SP[178]SP[170]1
  66. 760 [153]""
  67. 770 [153]"PRINTYOUR SPEED WAS"[181](14400[173]T)"WORDS PER MINUTE AT
  68. 780 PRINT"A COMPREHENSION OF"COMP"%"
  69. 790 FOR I = 1 TO(L+1):LW(I)=0:NEXT I
  70. 800 PRINT"PRESS KEY TO CONTINUE[146]"
  71. 810 PRINT"   F[146][145][157][164]ASTER    S[146][145][157][164]LOWER    N[146][145][157][164]O CHANGE
  72. 820 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"S"[167]T[178]T[172]1.15
  73. 830 [139] A$[178]"F" [167] T[178]T[172].91
  74. 840 L[178]0:LC[178]0:LR[178]0:COMP[178]0:T1[178]0:[153]
  75. 850 [137]470
  76. 860 [131] FOX,DOG,CHICKEN,COW,MULE,DONKEY,PIG,LION,MONKEY,BULL,DUCK,MAN
  77. 870 [131]BARN,BAR,GATE,CAN,HOUSE,CAR,GOAT,CAT,BAT,CART,HORSE,MOUSE
  78. 880 [131]JUMPED OVER,PAINTED,RAN AWAY FROM,HIT,SEARCHED FOR,MISSED,BIT,THREW
  79. 890 [131] BROKE,WASHED,CRUSHED,PUSHED,KISSED,LOOKED AT
  80.